' Welcome
'
' Welcome to the Microsoft
' QuickBASIC Interpreter!
'
' To run this program, choose Run Program
' from the Run menu, or hold down the
' Command key and press R.

CLS

topRow% = 1
FOR i% = 1 TO 5

    READ word$

    FOR row% = 16 TO topRow% STEP -1
        LOCATE row%, 1
        PRINT word$
        LOCATE row% + 1, 1
        PRINT SPACE$(LEN(word$) * 2)
        SOUND (2400 / row%), 1
    NEXT row%

topRow% = topRow% + 1
NEXT i%

LOCATE 1, 1

DATA "Welcome", "to", "Learn", "BASIC", "Now!"